home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase Pro v7.0 / DATA1.CAB / Sample_dBASE / Mugs / Supplier.dmd < prev    next >
Encoding:
Text File  |  1997-11-20  |  1.5 KB  |  65 lines
  1. //--------------------------------------------------------------
  2. //
  3. //  Supplier.dmd - Mugs Sample Application
  4. //
  5. //  Supplier Data Module for the Supplier data entry form.
  6. //
  7. //  Dependencies: MUGS.CDM
  8. //                COUTNRY.DBF
  9. //                SUPPLIER.DBF
  10. //                STATE.DBF
  11. //
  12. //  Visual dBASE Samples Group
  13. //
  14. //  $Revision:   1.5  $
  15. //
  16. //  Copyright (c) 1997, Borland International, Inc. 
  17. //  All rights reserved.
  18. //
  19. //---------------------------------------------------------------
  20. ** END HEADER -- do not remove this line
  21. //
  22. // Generated on 10/13/97
  23. //
  24. class supplierDataModule of MUGSDATAMODULE from "mugs.cdm"
  25.  
  26.  
  27.    this.COUNTRY1 = new QUERY()
  28.    this.COUNTRY1.parent = this
  29.    with (this.COUNTRY1)
  30.       left = 2
  31.       top = 3
  32.       database = form.dbmugs
  33.       sql = 'SELECT * FROM "country.dbf"'
  34.       active = true
  35.    endwith
  36.  
  37.  
  38.    this.STATE1 = new QUERY()
  39.    this.STATE1.parent = this
  40.    with (this.STATE1)
  41.       left = 6
  42.       top = 3
  43.       database = form.dbmugs
  44.       sql = 'SELECT * FROM "STATE.DBF"'
  45.       active = true
  46.    endwith
  47.  
  48.  
  49.    this.SUPPLIER1 = new QUERY()
  50.    this.SUPPLIER1.parent = this
  51.    with (this.SUPPLIER1)
  52.       left = 10
  53.       top = 3
  54.       database = form.dbmugs
  55.       sql = 'SELECT * FROM "SUPPLIER.DBF"'
  56.       active = true
  57.    endwith
  58.  
  59.  
  60.    with (this.SUPPLIER1.rowset)
  61.       fields["Country ID"].lookupSQL = 'SELECT country."Country ID", country FROM "country.dbf" country'
  62.    endwith 
  63.      
  64. endclass
  65.